Imports DTO
Imports DAO

Public Class KhoiBus
    Inherits AbstractBus
    Public Sub Them(ByVal khoiDTO As KhoiDto)
        Dim khoiDao As New KhoiDao()
        khoiDao.Them(khoiDTO)
    End Sub
    Public Sub CapNhatBang(ByVal dt As DataTable)
        Dim khoiDao As New KhoiDao()
        khoiDao.CapNhatBang(dt)

    End Sub

    'Lay Danh Sach
    Public Function LayDanhSach() As IList
        Dim khoiDao As New KhoiDao()
        Dim ds As IList
        ds = khoiDao.LaydanhSach()
        Return ds
    End Function

End Class
